﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class SalariosemanasFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As SalariosemanasBE
        Dim tmpSalariosemanas As SalariosemanasBE = New SalariosemanasBE()
        Try
            With tmpSalariosemanas
                .HoraExtra = convertDTFromDb.convertDouble(dr.Item("HoraExtra"))
                .IDEmpleado = convertDTFromDb.ConvertString(dr.Item("IDEmpleado"))
                .Salario = convertDTFromDb.convertDouble(dr.Item("Salario"))
                .Semana = convertDTFromDb.convertInt32(dr.Item("Semana"))
            End With
            Return tmpSalariosemanas
        Catch ex As Exception
            Throw
        Finally
            tmpSalariosemanas = Nothing
        End Try
    End Function
End Class
